home *** CD-ROM | disk | FTP | other *** search
/ The Business Master (3rd Edition) / The Business Master (3rd Edition).iso / files / busition / dayosup2 / dayoscd.exe / TEMP.PRG < prev    next >
Encoding:
Text File  |  1992-05-21  |  484 b   |  34 lines
  1.  
  2. parameter parm1,parm2
  3. SET EXACT OFF
  4.  
  5. parm=val(parm1)
  6.  
  7. xtemp2=space(parm)
  8. i=0
  9. clear
  10. ? parm
  11. ? parm1
  12. ? parm2
  13. ? ferror()
  14. h2=fcreate(parm2+".txt")
  15. h = fopen(parm2+".dbf",2)
  16. fseek(h, 0)   && move to START OF DB ii RECORD
  17. xtemp=space(522)
  18. fread(h,@xtemp,522)
  19. do while fread(h,@xtemp2,parm)=parm
  20.    fwrite(h2,xtemp2+chr(13)+chr(10))
  21.    scroll(5,0,22,79,-3)
  22.    @ 5,0 say xtemp2
  23.    x=inkey()
  24.    if x=27
  25.       exit
  26.    endif
  27. enddo
  28. fclose(h)
  29. fclose(h2)
  30. ?
  31. quit
  32.  
  33.  
  34.